Komputer for Alle 2001 #11/CD 11 (Black) - 2001.iso/Fruity/GUSHERS.DXR/00007_JumpingGuyObj.ls

Text File | 1998-04-13 | 5.7 KB | 199 lines

property pJGuyList, pJGuyCounter, pLastJGuyTime, pJGuyIntervalTime, pJGuyInterIntervalTime, pGuyAnimFlag, pUpMember, pDownMember, pLandMember, pGuyChan, pMoutainList
global gGusherObj, gBlank

on new me
  set pJGuyList to [28, 29, 30]
  set pJGuyCounter to 1
  set pLastJGuyTime to the timer
  set pJGuyIntervalTime to 15
  set pGuyAnimFlag to 0
  set pUpMember to 31
  set pDownMember to 32
  set pLandMember to 33
  set pGuyChan to 35
  set pMoutainList to [118: [219, 0, 0], 249: [141, 0, 0], 405: [189, 0, 0]]
  return me
end

on mUpdateGuy me
  if the timer < (pLastJGuyTime + pJGuyIntervalTime) then
    exit
  end if
  set the castNum of sprite pGuyChan to getAt(pJGuyList, pJGuyCounter)
  set pJGuyCounter to pJGuyCounter + 1
  if pJGuyCounter = (count(pJGuyList) + 1) then
    set pJGuyCounter to 1
  end if
  set pLastJGuyTime to the timer
end

on mJumpRoutine me
  puppetSnd(1, "StartJump")
  set gusherList to the pGusherList of gGusherObj
  set gusherList to mAddMoutains(me, gusherList)
  set jumpCount to count(gusherList)
  set iList to [0, 0, 0]
  repeat with index = 1 to jumpCount
    set lastiList to iList
    set iList to getAt(gusherList, index)
    set the memberNum of sprite pGuyChan to pUpMember
    updateStage()
    if index > 1 then
      if getAt(lastiList, 2) = 0 then
        puppetSnd(1, "MountainJump")
      else
        puppetSnd(1, "Gush")
      end if
    end if
    mJump(me, pGuyChan, the locH of sprite pGuyChan, the locV of sprite pGuyChan, getPropAt(gusherList, index), getAt(iList, 1), getAt(lastiList, 2), getAt(lastiList, 3))
  end repeat
  set the memberNum of sprite pGuyChan to pUpMember
  if getAt(iList, 2) = 0 then
    puppetSnd(1, "MountainJump")
  else
    puppetSnd(1, "Gush")
  end if
  updateStage()
  mJump(me, pGuyChan, the locH of sprite pGuyChan, the locV of sprite pGuyChan, 509, 127, getAt(iList, 2), getAt(iList, 3))
  set the memberNum of sprite pGuyChan to pLandMember
  puppetSnd(1, "MountainJump")
  updateStage()
  repeat while soundBusy(1)
  end repeat
  mWin(me)
end

on mAddMoutains me, gusherList
  set gusherList to duplicate(gusherList)
  set gushercount to count(gusherList)
  if gushercount = 0 then
    return pMoutainList
  end if
  repeat with index = 1 to 3
    set h to getPropAt(pMoutainList, index)
    set nIndex to findPosNear(gusherList, h)
    if nIndex > gushercount then
      set nIndex to gushercount
    end if
    set nearest to getPropAt(gusherList, nIndex)
    if nIndex > 1 then
      set nearest2 to getPropAt(gusherList, nIndex - 1)
      if abs(nearest2 - h) < abs(nearest - h) then
        set nIndex to nIndex - 1
        set nearest to nearest2
      end if
    end if
    if not (abs(nearest - h) <= 5) then
      addProp(gusherList, h, getAt(pMoutainList, index))
      next repeat
    end if
  end repeat
  return gusherList
end

on mJump me, jumpChan, xo, yo, x2, y2, gusherChan, gusherMem
  set deltaX to x2 - xo
  set deltaY to y2 - yo
  if (deltaX > 60) or (deltaY < -120) then
    mJumpOff(me, gusherChan, gusherMem)
    mLose(me)
    abort()
  end if
  set a to max([abs(deltaY) + 40, 60])
  if a > 100 then
    set a to 90
  end if
  set steps to 20
  set explodeCount to 4
  repeat with t = 1 to steps
    set theTime to the timer + 4
    set newX to xo + integer(deltaX * float(t) / float(steps))
    set newY to yo - (a * sin(PI * (float(t) / steps))) + integer(deltaY * float(t) / float(steps))
    set the loc of sprite jumpChan to point(newX, newY)
    if t > (steps / 2) then
      set the memberNum of sprite pGuyChan to pDownMember
    end if
    if gusherMem then
      if explodeCount > 0 then
        set the memberNum of sprite gusherChan to gusherMem + (5 - explodeCount)
        set explodeCount to explodeCount - 1
      else
        if the memberNum of sprite gusherChan <> gBlank then
          set the memberNum of sprite gusherChan to gBlank
          set the loc of sprite gusherChan to point(264, 260)
        end if
      end if
    end if
    UpdateSaturn()
    UStage(theTime)
  end repeat
end

on mJumpOff me, gusherChan, gusherMem
  set ├╕ to PI / 3.0
  set vo to 50
  set g to 8
  set xo to the locH of sprite pGuyChan
  set yo to the locV of sprite pGuyChan
  set t to 1
  set downflag to 0
  set explodeCount to 4
  repeat while the locV of sprite pGuyChan < 300
    set theTime to the timer + 6
    set oldY to the locV of sprite pGuyChan
    set newX to xo + (vo * cos(├╕) * t)
    set newY to yo - ((vo * sin(├╕) * t) - (g * power(t, 2)))
    if (newY > oldY) and not downflag then
      set the memberNum of sprite pGuyChan to pDownMember
      puppetSnd(1, "fall2")
      set downflag to 1
    end if
    set the locH of sprite pGuyChan to newX
    set the locV of sprite pGuyChan to newY
    set t to t + 1
    if gusherMem then
      if explodeCount > 0 then
        set the memberNum of sprite gusherChan to gusherMem + (5 - explodeCount)
        set explodeCount to explodeCount - 1
      else
        if the memberNum of sprite gusherChan <> gBlank then
          set the memberNum of sprite gusherChan to gBlank
          set the loc of sprite gusherChan to point(264, 260)
        end if
      end if
    end if
    UStage(theTime)
  end repeat
  repeat while soundBusy(1)
  end repeat
end

on mLose me
  resetGame()
end

on mWin me
  puppetSnd(1, "win")
  updateStage()
  repeat while soundBusy(1)
    repeat with offset = 1 to 4
      set theTime to the timer + 10
      set the memberNum of sprite pGuyChan to pLandMember + offset - 1
      UpdateSaturn()
      UStage(theTime)
      if not soundBusy(1) then
        exit repeat
      end if
    end repeat
  end repeat
  if IsShockWave() then
    gotoNetPage("../guxst.html")
  else
    if IsProj() then
      go(1, "STRINGTG")
    else
      resetGame()
    end if
  end if
end